SMUG Bytes

KOKO KK Ok kk KOK Ok KR OR Ok Ok OR OK OK KOK OK ROR OO OR OK OR KR ROKK

* x
* SMUG BYTES i
* Volume 6, Number 11 *
x November 1989 k
* *
x Subscriptions = $10.00 per year *
* or free with swap. Send to: x
* *
* SINCLAIR MILWAUKEE USERS GROUP >
x P.O. Box 101, Butler WI 53007 *
x *
Wise Se oe poe te ee oe a at ee x
x x
* THIS MONTH: *
* Se
x — Lotto on the QL x
w *
x - Editors Comments Be
* *
g — Some Programming Tips 3
* x
a = Presidents Message a
x *
xX — And Other Great Things sd
* x
X If any articles are copied x
X piease credit SMUG BYTES x
Fs :
* NEXT MEETING DATE: 12/66/89 X
t SIIRA E a EIE. ee pay LNE E pets) Soe LEE) ee $
* *
* Send all contributions by the *
* 3rd Wednesday of the month to: *
w *
K Bill Heberlein *
x Editor *
ia SMUG BYTES x
K 5052 N. 91st Street x
z Milwaukee WI 53225

y *

He AK AO I Ok Ok

SMUG Bytes

SKOKIE kK kk OK KK KOK

LSB OFFICERS
& WORKING
MEMBERS

All Area Codes Are 414
‘President - Neal Schultz
X =- 353 4522
*V. Pres. — W. Heberlein
* ~ 527 2191
*Secretary — L. Dreger
* — 321 0694
*Treasurer — A. Doneis
k ~ 344 4694
*Education — R. Cultice
X = 542 3591

¥ ¥ ¥X KEK

+x tt Ee KE HK KH HK K OK

x

ws Librarrans

TARAA -E. Pawlowski
1 - 338 0260

*Book =. D. Nickel

x 1 - 284 9691

x — Sub Group Leaders

KUO = OR Cue ree

*Meeting Alt. Sundays of the month

* — 542 3591

*Games = UN, -SCHULte

*Meeting Srd Saturday of the month*

x TAD

xHardware - G. Kraemer

*Meet-no set date. Call for info.

x — 421 0179

pee - R. Hilsmann

era Sra Wednesday of month
= 231 5291

*Spectrum — R.Hilsmann

*Meeting 3rd Wednesday of month

x ="25 1, 5291

x

x &* Ke © HN € KE € HB KE KH KE KH KK

Me Ee. e E ee Ee

Rk a I IK ak RAO OK KR KA IK RI ok

November 1989

EILEEN,

b

(NOTE NEITHER ANY AUTHOR OR SMUG BYTES TAKES ANY RESPONSIBILITY
FOR ANY HARDWARE MODIFICATIONS TO YOUR EQUIPMENT.)

Lote g>

This

zhe

lotto program is a conversion of
one published in an earlier
edition of this newsletter. This
program is for the QL and di drives

sk

If you don't have or use disk drives
change the flp2_ to mdv2_ or whatever
your saving device is. There are some

minor changes in the program as tne QI

Wa

SuperBasic works Slightly differentiy.
The winning numbers are saved
put if you change
you may have a size problem. i
not checked it out but the strin
holding the winning numbers is 2496
5 by 2. It will save a large area. But
this

to disk
this to microdrive

have

9

will only happen after a large
amount of data has been entered. I
nave a cutoff to only save what is
necessary.
I also had to modify other

instructions for the QL.

Program

eae Tere Cots

I have A ali tne
DUT if anyon

e
e
appreciate bei
c
l

operations out
problem I would
Pam There are

like to
will have
this program,

Gere aes am
i would

when I

have

īa few modif
make but I
tne time.

w

tA
LO

ana = a@ couple of others availabie for
you at the All you will
have to da the media you
would like ta uS copy the
programS on to. There will not be any
charge for the programs This lotto
program is set up for 6 number pick
with 54 being the top mumber. There is
no real check to insure no number
above is entered but everything is

basied on 54. It can he changed fairly
Simply but I will help if you need it.
“See you in Milwaukee" June 1-3, 1990.

TO 520

PRINT k;" sheets", "bets",k*

2na
BYTES

on
We service what we sell.

VVMV VV VV VV VV VV VV VV

November 1989

x“ SAVE THE HASSLE.
"unused " computer, peripherals and software.
- We are in the Business to sell your computer.
“ SAVE MONEY. buy your computer,
software at 2nd BYTES.
* SAVE TIME. have our professional consultants
assist you in finding the computer and the programs
for your needs.
~- We are in the business to help you select an inexpensive
system.
~ WARRANTY.

almost all equipment we sell.

Y 74-11 SS

9721 W. Greenfield Avenue West Allis WI 53214

The new Computer Store
For Not-So-New

Computers

have 2nd BYTES sell your

peripheral and

SMUG Bytes

".kK*6\, "spend $":k*3\\: FOR 1=1 TO bet
30 IF fl1=1 THEN GO SUB 1260

40 FOR n=z TO count

5 LET t=INT (RND*number)+1

60 IF f11=4 THEN LET a(l,n)=b(t): GO T
O 80

70 LET a(l,n)=g(t)

8@ IF CODE (inky$) >48 THEN LET ps=((CO
DE (inky$))—-48) *5

90 FOR x=1 TO n-1: IF a(1l,n)=a(1,x)THE

N GO TO 50

100 NEXT x: IF INKEYS=' ' THEN GO TO 6
90

110 LET c(a(l,n))=c(a(l,n))+1: NEXT n:
GO SUB 190: AT 14+1+2,@: PRINT: NEXT 1:
PAUSE ps: LET k=kt+1i: IF fl=1 THEN GO S
UB 68@: GO TO 2@

120 AT 16,0: PRINT "press 1) for more”
Me? 2) to copy”\" 3) for menu
13@ LET inky$=""

140 LET inky$=INKEYS: IF inkyS='"" THEN
GO TO 140

150 IF inky$="1" THEN CLS: GO TO 2@
160 IF inky$="2" THEN GO SUB 850

170 IF inky$="'3'"' THEN GO SUB 1198: GO
TO 550

180 GO TO 120

19@ FOR x=1 TO count-1:
=a(l,x+i)

200 IF t>=a(1,3)THEN GO TO 220

210 LET a(l,jti)=a(l,j): LET j=j-1: IF
j>=1 THEN GO TO 266
220 LET a CI jJtLjJ Sts
EN RETurn

230 FOR x=1 TO count: PRINT a(l x)”
3: IF £1=@0 THEN IF p=10 THEN IF kétli T
HEN LET d¢((k—1) *6)41. x3 =a lx)

240 NEXT x: IF £1=@ THEN RETurn

250 GO SUB 45@: AT 14141,34

260 PRINT " match ";0: IF o>3 THEN GO

LET j=xs LER t

NEAT x0 LF £1)53.TH

SUB 920

270 IF o>=p THEN LET a$="": FOR x=1 TO
count: LET a$=a$&(a(i,1))&" "i NEXT x:
OPEN #11,ser: PRINT #11,k*6;" *",ag;"
=>(";0;")": IF £11=3 THEN CLOSE #11: R
ETurn

280 IF o=3 THEN LET three=threet+tl: AT
19,@: PRINT "3's=";three

290 IF o=4 THEN LET four=four+l: AT 19
,9: PRINT '4's=";four: GO SUB 1080

300 IF o=5 THEN LET five=fivet+1: AT 19

»i8: PRINT "5's=";five: GO SUB 1080
319 IF o=6 THEN LET six=six+1: AT 19,2
7: PRINT "6's=";six: GO SUB 1080

320. RETurn

330 CLS: AT 10,0: PRINT "Enter the num

SMUG Bytes

bers which the"\ "computer should pick
against"\\\\"enter the numbers one at

a time. Enter zero (@) for r
andom numbers”
340 w=2: o=@: RESTORE 520: AT 2,0: FOR

x=1 TO count
350 READ a$:
$;" number (1 to
b(x): PRINT b(x)
360 IF £f1=2 THEN IF b(x)=@ THEN GO TO
340
370

AT 19,@:
"snumber;'"')

PRINT "enter ";a
"ss: INPUT

IF b(x)=0 THEN GO TO 470

380 AT w,@: o=ot3: IF x=6 THEN w=wtl:
o=@
390 IF fl1=2 AND f11=2 THEN d(1,x)=b(x)

400 NEXT x

41@ AT 3,0: PRINT ,,: IF fl=2 OR f11=4
THEN RETurn
420 CLS: AT 2,@: PRINT ;: FOR x=1 TO c

ount: a(1l,x)=b(x): NEXT x
430 1=1: f1=3: GO SUB 190: AT 18,0: FO
R x=1 TO 6: PRINT a(i,x)3" |"3 2 NEXT x

44@ AT 19,0: PRINT '
': PRINT "3's="
PRINT "4's=";four

:three;” ": AT 19,9:

gh Og TP AO Ss PR TENG a O ae seh VCs

ALT 29: 27s" PRINT ““O%Ss0) eo axe ie AT 25.0
fl=1: GO TO 2@

450 o=@: FOR x=1 TO count: FOR n=1 TO

count: IF a(l,n)=b(x) THEN o=otl

460 NEXT n: NEXT x: RETurn

470 AT 5,0: PRINT : FOR x=1 TO count

480 b(x)=INT (RND*number)+1i: FOR n=1 T

O x-1: IF b(x)=b(n) THEN GO TO 480

490: NEXT n: PRINT b(x);" "3: IF x=6

THEN PRINT \

500 NEXT x: PAUSE 200: IF f11=4 THEN

RETurn

510 GO TO 400

9240: DATA. OLst' 2nd. ord aan 2 oth

YO E 9 PID OEE op Eh te eee 2 ke
pee 2 ei

530 DIM b$(2496,6,2)

548 DIM d(6@,6)

550 GO SUB 2080

560 CLS: AT @,1@: PRINT “LOTTO

NUMBERS 1 \ (11 & OKO OOK ak ok

RRERE KR REE RRR AT 3,0: PRINT “press:

MAN 1) Fors QUICK PICKENS

2) for MIXED PICKE Siwtor.SySr
BM. PUCK" 4) for WINNING NUMBER
SNT 5) TOY ODDS DEMONS 6

) to ENTER & VIEW PICKS"\"
CHECK WINNINGS"\"

7) to
8) to SAVE &

LOAD DATA"

570 inkyg$=""

580 inky$S=INKEY$(@): IF inky$="" THEN
November 1989

GO TO 58@

590 IF inky$="1" THEN GO TO 1010

600 IF inkyg="2" THEN GO TO 1210

610 IF inky$="3" THEN GO TO 127@

620 IF inky$="4" THEN GO TO 1280

630 IF inky$="5" THEN GO TO 1490

640 IF inky$="6" THEN GO TO 1590

650 IF inky$="7" THEN GO TO 1949

660 IF inky$="8" THEN GO TO 820

670 GO TO 58@

680 FOR f=2 TO 13: AT f,@: PRINT
': NEXT f: RETurn

690 CLS: IF p=3 THEN

708 OPEN #11,ser

71@ END IF

720 aa=0: FOR f=1 TO 54

730 PRINT f,c(f)

740 IF p=3 THEN PRINT #11, '#=';f:;:' #o

f matches='

750 aa=aa+1
760 IF aa=4 THEN aa=@: PRINT #11,\
770 NEXT f: PRINT \\\k:"
bets"\\"four =

six = ";six

78@ IF p=3 THEN
790 PRINT #11,\\\k;""
bets"\\"four =

ELEJE" Jay

";four\"five = "afiye"

sheets"\k*6;"
";four\'five =

“Six = ";six: CLOSE #11

80@ END IF

318 GO SUB 1450: GO To 550

828 GO SUB 960

830 GO TO 550

8540 AT 13,0: PRINT “RANDOMIZING NUMBER

S5, please wait": RETurn
350 OPEN #11,ser

860 FOR 1=1 TO bet

870 FOR x=1 TO count

880 PRINT #11,a(1,x);" ";

890 NEXT x: PRINT #11,\
900 NEXT 1

910 CLOSE #11: RETurn

920 FOR v=1 TO 5

930 BEEP 50,50,50,0,8,8,8
940 NEXT v

950 RETurn

960 REMark load or save b$

970 CLS: PRINT "Enter 1 to save the w

inning numbers"\"Enter 2 to load the

winning numbers"

980 inky$=INKEY$: IF

TO 98@

99@ IF inky$=1 THEN GO SUB 2190: RETu

rn

1000 IF inky$=2 THEN GO SUB 2350: RET

urn
November

inky$=""" THEN GO

1989

sheets"\k*6;”

";five\

1@16 k=1: f1l=6: GO
18: GO TO 20
1020 GO SUB 840:

SUB 1020: GO SUB 11

GO SUB 1030: AT 16.0:

PRINT, , RETurn
1038 GO SUB 1100: FOR x=1 TO number

1640 y=INT (RND*number) +1

1050 IF g(y)=0 THEN S(y)=xX: GO TO 187@
1060 GO TO 1040

1070 NEXT x: s=1: RETurn

1080 y=g(number): FOR x=number TO 2 5
EP -l: G9(X)=g(x-1): NEXT x: G(l)=y: s=
Sti: IF s=8 THEN GO SUB 1020 ee

1090 RETurn

1100 FOR x=1 TO number:

: RETurn

1110 AT 17,0: PRINT

to enter the numbers"\"

g(x)=0: NEXT x

Would you like
generated t

o the pick list? (y/n)"

1120 inky$=INKEYŞ: IF inky$=="" THEN G

O TO 1120

1130 IF inky$=="y" THEN

1140 p=10

1150 ELSE

1160 p=1

1170 END IF

1180 s=9: CLS: RETurn

1190 IF p=i@ THEN d(((k- 1)*6)+1,1)=0

1200 RETurn

1210 CLS: GO SUB 2086

1220 AT 10,0: PRINT "Enter the number (

S) you wish to"\"incorporateinto ak. -p

icks."\\"Enter zero (@) when finished"
PRINT \\: FOR z=1 oo 6: INPUT “enter
number from 1 to 54 e(z): PRINT e(

Z2);"' ": IF e(z)=@ THEN GO TO 1240

1230 NEXT Z

1240 fli=1: IF fl=1 THEN RETurn

1250 CLS: GO SUB 840: GO SUB 1020: GO

SUB 1118: f11=1: GO TO 2@

1260 FOR x=1 TO z: a(l,x)=e(x): NEXT x
RETurn

1270 k=1: count=12: £11=4: CLS: AT 10,

O: PRINT "Enter 12 system numbers"\"En

ter zero (@) for random pick": GO SUB

340: count=6: number=12: GO SUB 111@:

GO TO 2@
1289 CLS: GO SUB 2086

1290 AT 5,6: PRINT "“press"\\\"1) To en
ter winning numbers"\\"2) For most win

ning numbers"\\"3) To view all winning
numbers"\\"4) Exit to main menu"

13@0 inkyş$ş=""

1310 inky$S=INKEYs$:
TO 1316
320 IF inky$="i"
330 IF inky$=

IF inky$="" THEN GO

THEN GO TO 1370
THEN GO TO 1400

4 SMUG Bytes

1346
1356

IF inky$="3" THEN GO SUB 1440:CL5
IF inky$="4" THEN GO TO 566
1366 GO TO 1290
1370 CLS: fl=2: AT 16,@: PRINT “Enter
the winning numbers one at a time."\\"
Enter zero (@) to start all over if yo
u have made a mistake": GO SUB 340: GO
SUB 1466
1380 FOR n=1 TO count:
EXT n: IF f£11=2
1390 GO TO 1288
1400 CLS: AT 5,@: PRINT
ing numbers are:"\\: GO SUB 1460: FOR
n=1 TO number: c(n)=@: NEXT n: z=x-l1:
FOR 1=1 TO number: AT 7,@: PRINT "chec
king for “sl FOR n=1 TO Z: eed a TTO
count: IF b$(n,x)=1 THEN c(l)=c(1)+1
1410 NEXT x: NEXT n: NEXT 1: ae Wt
f=@0: FOR x=1 TO 12: FOR n=1 TO number-
1: IF c(n)>ft THEN f=c(n): z=n
1420 NEXT n: IF f=6 THEN GO SUB 1450:
CLS: GO TO 1290
143@ PRINT Zet = ";f;"
f=0: NEXT x: GO
1440 CLS: GO SUB 1460:
k=@: FOR l=1 TO bet:
“s: k=k+4: NEXT 1:
1450 AT 19,0: PRINT "Press key to cont
inue s PAUSE (<-1): RETurn
1460 FOR x=1 TO 2496: IF b$(x,1)<="
OR b$(x,1)>"99" THEN GO TO 1480
1470 NEXT x
1480 FOR n=1
J ORE PUSH
1490 CLS: GO SUB 2088:
“would you like
/n)"'
1500 yn$=""
1510 yn$=INKEYS:
15190
1520 IF yn$==
@
153@ CLS: AT 10,@:

b$(x,n)=b(n): N
THEN RETurn

"the most winn

times"
SUB 1450;

c(z2)=0:
GO TO 1280
FOR n=1 TO x-1:
PRINT b$(n,1);"
PRINT \: NEXT n:

Oo"

TO number: c(n)=@:

AT 10,0: PRINT
to bend the odds?"\'" (yY

IF yng$="" THEN GO TO

THEN fl=1: GO SUB 122
PRINT “if you wish
to have a printout of corectlymatched
numbers, turn on your printer now.”
Would you also like to have all three
correctly matched numbers printed out
(y/n)?"
1540 yng=""'
1550 yn$=INKEYS: IF yng=""
1550
1560 I
1570 p
1580 C
O 33¢
1590 CLS
1606 AT 15,0: PR
SMUG Bytes

THEN GO TO

GO TO 1588

INT “ILJ to

5

ie) to ADD PICKS "\"S) to VIEW PICKS"
\"4) to ERASE PICKS"\"5) return to mai
n menu"

1610 inky$=""

1620 inky$=INKEY$: IF inky$="" THEN GO
TO 1620

630 IF inky$="1" THEN 1=0: GO TO 1690
1640 IF inky$="2" THEN GO TO 1780

1650 IF inky$="3" THEN GO TO 1750

1660 IF inky$="4" THEN GO TO 1810

1670 IF inky$="5". THEN GO TO 5508

1680 GO TO 1590

1690 CLS: fl=2: f£11=2

1700 CLS: AT 10,0: PRINT "Enter your n
umbers one at a time": 1l=1+1: GO SUB 3
46: da(l+1,1)=@: AT 19,0: PRINT " more
(y/n)?": ainky$=""

1710 inky$=INKEY$(@): IF inky$="" THEN

GO TO 1710

1720
1730
1740
1750

FOR n=1 TO count:

IF inky$=="y" THEN GO TO 1700

IF inky$=="n" THEN GO TO 1600
GO TO 1710
CLS: AT 2,02 PRINT: FOR -x=1 TO 60

PRINT d(x,n); ataa

NEXT n: IF d(x+1,1)=0 THEN GO TO 1770

1760 PRINT \: NEXT x

1770 GO SUB 1459: GO TO 1600

1786 FOR x=1 TO 10: IF d(x,1)=@ THEN 1

=x-1: GO TO 1800

179@ NEXT x: AT 2,@: PRINT|"list fille

d, sorry": GO SUB 1450: GO TO 1600

1800 GO TO 1690

1810 CLS: FOR 1l=1 TO 1@

1826 PRINT "erase ? (y/n)"\

1830 FOR x=1 TO count

1840 IF d(1,x)=6 THEN GO TO 1600

B50. PRINT d-Cl yx yee 2h;

1860 NEXT x

1870 inky$=INKEYS$: IF inky$="" THEN GO

TO 1870

1880 IF inky$=="y'" THEN GO SUB’ 1930: G

O TO 1820

1890 IF inky$=="n" THEN GO TO 1914

19060 GO TO 1870

1910 NEXT 1

1920 GO SUB 1450: GO TO 1600

1930 FOR y=1 TO 9: FOR f=1 TO count: d

(y,fj=ad(yt+t1,£): NEXT £: NEKT y: FOR y=

1 TO count: €@(10,y)=@: NEXT y: PRINT
= erased"’\: RETurn

1940 CLS: AT 10,0: PRINT "Enter winnin

g numbers": f1l=2: £11=0

1950 GO SUB 340: fll=z

1960 GO SUB 1460

1970 GO SUB 1380

1986 f£11=3: CLS

1990 AT 1,0: PRINT "The winning number

November 1989

s have been added to the list of winni 2160
ng numbers. "\\\'The winning numbers 2176
are: "\\: FOR x=1 TO count: PRINT b(x) 5

REMark save program
DAVE flp2_convert_lotto_@: stop

2190 REMark 1 will save Winning #'s,.
fe 2200 q=10: CLS: v=@: PRINT "Saving";
2000 NEXT x 2220 OPEN_NEW #7,T1p2 Winner
2018 PRINT \\"your bets are"\\ 2240 FOR n=1 TO 2496
2020 FOR f=0 TO 59 STEP 6 2250 IF q>9 THEN PRINT ".";: q=@
2030 FOR 1=1 TO bet 2268 q=q+1
2040 FOR n=1 TO count 2270 IF b$(n,1)<" 1" THEN v=v+1
2050 IF d(1l+f,n)=® THEN GO TO 2076 2280 IF v>1 THEN n=2496: GO TO 2320
2660 a(1,n)=d(1+f,n): NEXT n: GO SUB 1 9299 FOR m= 1 TO count
90: NEXT 1: GO SUB 145@: PRINT \\: NEX 2390 PRINT #7,bD$(m,m): NEXT m
T oe 2320 NEXT n: close + 7: RETurn
2070 PRINT "That's all folks": GO SUB 2350 REMark 2 will iocaa winning #'s.
1450: GO TO 550 2360 =Í JLO PRINT "Loading";
2080 fl=0: f11=0: three=9: four=6: fi 2380 IpZz Winners"
ve=@: Six=@: ps=10@: o=ð: k=l: w=o: z 2400 56
=1: bet=6: count=6: number=54: DIM A ( PALG RINT " "; q=6
6,6): DIM b(1Z): DIM c(54): DIM e(6):

DIM g(54): 1=1: RETurn

2110 REMark cls: at 10,0: print "(S)av
ing or (L)oading DATA 77": pause Cass
if inkey$=="s5" then save flp2 winning
bin: save flp2_bets_bin: go to 9020

EMS oft
Software for the QIL that really works

We sell real world software that does real work on a QL computer, much of
which is tax deductible. There are business, financial and technical
applications. Most operate under one of the PSION programs.

Use any of these programs even if you're scared to death of ARCHIVE* or
ABACUS*., Instructions teach what's really needed but otherwise they are
transparent. All are fully editable for special requirements.

Prices are from $9.95 for QLUTter, a resident boot utility, to $2850.00 for
a site license for CAM MASTER, a friendly CAD program for circular cams
that generates the CNC code to a vertical mill controller. (Get the demo
first; it's only $9.95 and really shows the power of the QL.

Expanded and improved versions of TRUST_FUND 1.3, MAILBAG 2.0 and
QLAND_LORD 1.3 are available for $4.95 with the original medium. There's
O8Tutor, a flash-card program, and DBProgs with 5 useful Archive utilities.
We have The_Transfer_V3, for HP compatible laser printing of DTP files and
a range of other useful, hard-working software for the QL a

Order TAX-1-QL/89 by November 22 to get a $19.95 early-bird discount.

PS!ION's PC-FOUR for MS-DOS computers is only $99.95.
(Ever see Easel output to an HP Plotter?)

We create much of our Own software but we market software by other
Programmers. Please call/write for details about our arrangements.

Send for our catalogue which explains things in detail.

EMSOFfEt, P.O. Box 8763, Boston MA 02114 (617) 889-0830

November 1989 6 SMUG Bytes

TS-—-2068/OQL T1Ps

Here are some tips for the TS2068 that
SMUG has accumulated through the years
that we would like to pass on. The

first ones are for the TS2068 and its
possible the TS1000, TS51500@ and
ZX86-81.

When writing programs be careful when
changing variables. If you have
defined a variable and have run the
job the variable will be there until
you doa CLEAR. Our computer allows
variables to hold their values even
after the variable has been deieted.
In most computers the variables are
dropped Tf the program stops
executing. This means if you change
from a$ to aa$ a$ will still be there
in our computer.

If you want to change the size of a
dimension you can do a run. But if you
want to clear the dimension with out
clearing other variables just
re-dimension the variable. For example
DIM a$(5,1@) sets up a dimension of 5
sets of 10 bytes each. After running
you have data inthe DIM. Just doa
DIM a$(5,1@) in the command mode. All
data will be cleared. If you want to
Reduce the size without runing th
program do a DIM a$(%,0), clearing t
dimension and removing the pena
extents. Now re-dimension
mode and you should nave ae. new siz
available to you.

If you are using ON ERROR, once you
have turned it on it stays on. If you
want to remove it CLEAR the computer
before deleting the line. Then delete
the line using the DELETE command
rather than just typing in the line #.
If you type the line # the variable
table will still contatin'the line #
and the ON ERROR will still execute.

QL tip. When using the IF beware! The
shortend version allows for statements
on the same line as the if. But DO NOT
use an END IF. If using the long
version or an ELSE within the IF you
must use the END IF. When using the

END IF you CAN NOT have more than 1
statement on a line. This includes
having anything on the same line as

the then or else.

SMUG Bytes

KNXRRRHNNMNMMMN MMW Ww Ow
2 NEW RELEASES FROM
x#> RMG ENTERPRISES <##

HERE ARE 2 NEW RELEASES FROM THE
WRITING TEAM OF JEAN AND BRANSON
WILCOX. We hope that you will give,
them a try and help support our
2068 sortare E erecucere!:

TAL

HT

© 1988 BRANSON WILCOX

Remember the old dice poker game?
Here is a great rendition of it for
you to run on your 2068.
Introductory priced at:
ONLY %12. 95plus $2.

This one ig for all of you TAROT
card enthusiasts. I really have not
seen a better program of its type
for the 2068. It is fun to get
your readings done by THE AMAZING
CLIVE from his TAROT cards!
Also introductory priced at:
ONLY R12. Q5 plus $2 PH

RMG ENTERPRI SES
1419 1/2 7TH STREET

OREGON CITY, OR 97045
BBB Bi BB Be Be Be EBB EE EEE EEE EEE EE EEE ERE

7 November 19

EEX LLL

Some Sek Se oe ea l

I have noticed a few comments in the
newsletters about not receiving any
information from the national. Well we
received the ballot and in October we
received a post card from the National
Public Domain library. We have seen
the Indiana newsletter about Mel being
sick and having to resign but there
has not been any official word. I feel
that the national is a good thing but
I don't understand why nothing is said
Dy those in the know. I am sure all of
us newsletter editors would mention
any word about the national. The only
thing is that it must come from an
officer of SNUG.

One other thing. We got to thinking
about membership. If we get a User
Group membership should each member of
the group also get a membership? This
might be what SNUG is looking for.

Our prices are
Wide selection of
AXIOM C. ITOH

PANASONIC STAR

8634 W. National Avenue

MMMM NM VM VV VV VV VV VV VV VV VV

November 1989

GK ENTERPRISES
Your Computer Supply Source
No need to wait for a sale.
low everyday

printer ribbons

HK KK KOK KKK ok ok kok ok

*SMUG SPECIAL*

ROKK KOK KOKO ok ok kok

2700 sheets 9 1/2 x 11 20# Microperf

Wowk OK Kk OK ok OK Ow

* 546-0111 *

KOK OK Ok Kk k OK ok Oo

Comments

Also Computer Shopper, through the FOG

user group, is printing user groups in
the world. The only requirement is
that you verify you are still there,

every three months. There address is:
FOG User Group Listing ;
P.O. Box 3474

found two TS user
haven't heard from
one I have never
Here they are, if you are interested:
N.E. Timex Sinclair User Group

(NEF TSUG) ¢/. John Kuhn, 1797 King
Street, Jacksonville FL and
Fort Worth T/S Users Group

°/o David Baulch, 4425 Geddes
Avenue, Fort Worth TX 76107

new group is:

Quantum Leap User Group
“/o Gale Henslee, 4411
Amarillo TX 79106

I have groups that

an a long time ana
heard from before.

The

2nd Avenue,

i
|
i
|
|
i
i
|
i
i
H
i

EPSON OKIDATA

AND MANY MORE.

$23.50

West Allis WI 53227

ENAN INEN EN E IS DAN AS ANAK LO DN AS DS BN PS AN AAN BIR IAN FX

SMUG Bytes

PRESIDENTS MESSAGE

The documentation is done and
ordered boards have been shippec.
If anyone has ordered and payed for
a board and has not received it by
Christmas please contact us. The
shipping is being done by U.S. mail
and as we all know sometimes...

I want to thank Dick and Marty for
their help in making this project
work. Dick has been the focal point
of the project. This includes
designing the board, making tne
proto type and keeping track of all
who are interested in the board

Marty acted as the technical
adviser and is building the
complete boards for sale. Marty
also did the excellent job on the
documentation on putting the board
together. There was some minor heip
by Bill and Myself.

G ed G O
In Otherwords
The Meeting

Or

This was a good meeting with even two
guests. They were Jay Seal and Nazir
Pashtoon from the Chicago area. They
came to order a digitizer board and
demonstrate the way they use CPM on
the TS2068 with the Zebra drive
system. We were happy to see them and
have their informative talk. Maybe we
have a speaker and subject for the
Computer Expo on Sunday June.Z, 1990.

Marty showed us his digitizer
documentation. He will include it with
all the boards being shipped.

Bill reported on the costs of having T

shirts printed. Gordon informed us
that someone has a form for making T
shirt transfers using the lazer

printer. He will get costs for the
next meeting. If that works out we can
make them to order somewhat.

‘COMPUTER AND PRINTER REPAIR

FACTORY AUTHORIZED SERVICE

Commodore
Panasonic
Amiga
Brother
NEC
Samsung

ə Star Micronics
e Atari

® Citizen

® C.Itoh

© Silver- Reed

e Goldstar

Apple compatibles © IBM compatibles
@ and sie pu OR brands

LEOTE
10953 West Mitchell Street

November 1989

EEE DEDEDE OO EEE

The Samecelair Mi lwaukee Users
C SMUG )
We are a not-for-profit group devote:
Oo serving the interests of those who
own, use, and/or are interested in the
Timex/Sinclair family of computers

ch

is available
l to non members
or free with a club membership. A club
membership is $2 per year for :
family membership

t =
tor only $10 per y

Editor and contact person is:
Bill Heberlein (414) 527 2191.

SMUG maintains a gratis exchange of
newsletters with approximately 20 Advertising
Users Groups across the U.S. and runing for six
Canada. Clubs not sending newsletters Copy may be ch
for more than 6 months are removed must supply th
from our mailing list. 786-0460 Ho
~ Barker Rd. :
stop Lights<-<-5

> IN < YA
> Poi < i Take the i >
> 4; < Hy 18 & Hy Y À i
> Oi a < Exit # 297 ----> >--!
> E Kentucky < Pon to Madison------—-—— >
> hi Fried < i exyt Morelnd
> Capital Dr& | #<---Chicken < N--> 3Q@1--> >----- Rd
> =- | ==- < i
> Equitable->#i #<--McDonalds <
> 5 & L. Enter! £
> from West i <
= = < - i

PILrRST

SMUG BYTES

5052 N. 91st Street
Milwaukee WI 53225

Address Correction Requested

The next meeting of SMUG will be held cn:

Wednesday, December 6,1989
6pm Set Up

6:30 Members Demo Location

7:3@ Business Meeting Equitable Savings and Loan,
8:30 Lotto Program Demo 145th and Capital Drive,
19:30 Clean Up Milwaukee Wisconsin

November 1989 12 SMUG Bytes